﻿Namespace My.Templates

    Partial Public Class TemplateA

        Public Property PropertyName As String = String.Empty
        Public Property BackingField As String = String.Empty
        Public Property TypeName As String = String.Empty
        Public Property IsShared As Boolean = False
        Public Property RaisePropertyChangedMethodName As String = String.Empty
        Public Property IsReadOnly As Boolean = False
        Public Property Scope As String = String.Empty
        Public Property IsSetterPrivate As Boolean = False

        Public Sub New(ByVal strScope As String, ByVal bolIsShared As Boolean, _
                       ByVal bolIsReadOnly As Boolean, ByVal bolIsSetterPrivate As Boolean, _
                       ByVal strPropertyName As String, ByVal strBackingField As String, _
                       ByVal strTypeName As String, ByVal strRaisePropertyChangedMethodName As String)

            Me.Scope = strScope
            Me.IsShared = bolIsShared
            Me.IsReadOnly = bolIsReadOnly
            Me.IsSetterPrivate = bolIsSetterPrivate
            Me.PropertyName = strPropertyName
            Me.BackingField = strBackingField
            Me.TypeName = strTypeName
            Me.RaisePropertyChangedMethodName = strRaisePropertyChangedMethodName
        End Sub

    End Class

End Namespace